'************************************************************************************************************************
'Description:
'
'This example starts UFT One, opens a new test, and configures it for recording
'and running on an Oracle application with AutoLogin feature active.
'
'Assumption:
'UFT One is not open.
'************************************************************************************************************************
Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.SetActiveAddins Array("Oracle") ' Activate the Oracle Add-in
qtApp.Launch ' Start UFT One
' Configure the Oracle application version to use with this test
qtApp.Test.Settings.Launchers("Oracle").Active = True
' Specify the URL and configure the browser settings to use with this test
qtApp.Test.Settings.Launchers("Oracle").Address = http://Oracle_application.url
qtApp.Test.Settings.Launchers("Oracle").LogoutOnExit = False
qtApp.Test.Settings.Launchers("Oracle").CloseOnExit = True
'' Configure the Auto-login parameters to use with this test
qtApp.Test.Settings.Launchers("Oracle").AutoLogin = True
qtApp.Test.Settings.Launchers("Oracle").User = "username"
qtApp.Test.Settings.Launchers("Oracle").Password = "mypassword"